﻿
Partial Class ts
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim ex As String = Request.QueryString.Item("ex")
        If String.IsNullOrEmpty(ex) Then
            ex = "Snom"
        End If
        Dim xml = <?xml version="1.0" encoding="UTF-8"?>
                  <SnomIPPhoneInput>
                      <Title>Menu</Title>
                      <Prompt>Prompt</Prompt>
                      <URL><%= Helper.TweetsListUrl(Page) %></URL>
                      <InputItem>
                          <DisplayName>Twitter search criteria</DisplayName>
                          <QueryStringParam><%= "m=$mac&ex" %></QueryStringParam>
                          <DefaultValue><%= ex %></DefaultValue>
                          <InputFlags>a</InputFlags>
                      </InputItem>
                  </SnomIPPhoneInput>
        Response.ContentType = "text/xml"
        Response.Write(xml)
        Response.End()
    End Sub
End Class
